home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh46b.d64
/
autokosten main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
13KB
|
614 lines
100 REM BENZINKOSTENVERWALTUNG UND -STATISTIK
110 REM THOMAS JENSEN 2224 BURG
120 POKE788,52
130 VIC=53248
140 AT=49272
150 POKEVIC+32,14
160 POKEVIC+33,6
170 POKEVIC+21,0
180 POKE646,14
190 PRINTCHR$(142)CHR$(8)
200 PRINT"[147]BITTE HABEN SIE EINEN MOMENT GEDULD"
210 PRINT"ICH LADE ZUNAECHST EINIGE UNTERPROGRAMME"
220 PRINT"LOADING...";
230 IFPEEK(49152)<>32THENLOAD"AUTOKOSTEN MC",8,1
240 PRINT"..."
250 IFPEEK(836)<>3THENLOAD"AUTOKOSTEN SPR.",8,1
260 PRINT"[147]"
270 POKEVIC+32,0
280 POKEVIC+33,0
290 FORI=1TO9
300 READB(I)
310 NEXT
320 FORI=0TO6
330 POKE2041+I,13
340 NEXT
350 POKE2040,14
360 POKEVIC+23,255
370 POKEVIC+29,255
380 POKEVIC+39,7
390 FORI=2TO8
400 POKEVIC+38+I,B(I)
410 NEXT
420 POKEVIC+16,1
430 FORI=0TO7
440 POKEVIC+1+2*I,50
450 NEXT
460 POKEVIC,42
470 POKEVIC+2,15
480 POKEVIC+4,55
490 POKEVIC+6,95
500 POKEVIC+8,135
510 POKEVIC+10,175
520 POKEVIC+12,215
530 POKEVIC+14,255
540 T$="BITTE EINE TASTE DRUECKEN !!!"
550 POKEVIC+21,255
560 SYSAT,0,6,"[158]THOMAS JENSEN (SMILY) PRESENTS :"
570 SYSAT,0,8,"[158]BENZINKOSTEN VERWALTUNG UND STATISTIK"
590 FORI=0TO9
600 POKE646,B(I)
610 SYSAT,0,12,T$
620 FORJ=1TO60
630 NEXT
640 NEXT
650 GETA$
660 IFA$<>""THEN690
670 GOTO590
680 DATA,11,12,15,1,15,12,11,
690 POKE646,14
700 POKEVIC+21,0
710 POKEVIC+32,14
720 POKEVIC+33,6
730 PRINT"[147]"
740 OPEN1,3
750 D=200:REM MAX. ANZAHL EINTRAEGE
760 DIMDA$(D),KI(D),PR(D),GE(D),LI(D),VE(D),KG(D)
770 GOSUB1210
780 GOTO1580
790 IN$=""
800 CC=0
810 SP=PEEK(211)
820 ZE=PEEK(214)
830 MS=0
840 POKE204,0
850 GETG$
860 IFG$=""THEN850
870 G=ASC(G$)
880 IFG=13THEN1000
890 IFG=47ORG=148THEN850
900 IFG=20THENG=157:G$="[157]"
910 IFG=29ANDPEEK(211)<=SP+LG-1THENGOSUB1110:GOTO850
920 IFG=157ANDPEEK(211)>SPTHENGOSUB1110:GOTO850
930 IFAL=1THEN960
940 IFG>45ANDG<58ANDCC<LGANDPEEK(211)<=SP+LG-1THENCC=CC+1:GOSUB1110:GOTO850
950 GOTO850
960 IFG<46OR(G>57ANDG<65)OR(G>90ANDG<193)ORG>218THEN850
970 IFCC<LGANDPEEK(211)<=SP+LG-1THENCC=CC+1:GOSUB1110:GOTO850
980 IFPEEK(211)<SP+LGTHENGOSUB1110
990 GOTO850
1000 POKE205,2
1010 IFPEEK(207)<>0THEN1010
1020 POKE204,1
1030 POKE211,SP
1040 POKE214,ZE
1050 IFCC=0THENRETURN
1060 GET#1,G$
1070 IFG$=CHR$(13)THENIN$=LEFT$(IN$+" ",LG):RETURN
1080 IN$=IN$+G$
1090 IFLEN(IN$)<LGTHEN1060
1100 RETURN
1110 POKE205,2
1120 IFPEEK(207)<>0THEN1120
1130 PRINTG$;
1140 IFPEEK(211)>MSTHENMS=PEEK(211)
1150 RETURN
1160 SYSAT,2,5," "
1170 FORI=8TO18
1180 SYSAT,2,I," "
1190 NEXT
1200 RETURN
1210 POKE768,185
1220 OPEN15,8,15
1230 CLOSE15
1240 POKE768,139
1250 IFST<>-128THEN1290
1260 SYSAT,2,22,"STATUS : FLOPPY NICHT EINGESCHALTET "
1270 GOSUB1370
1280 GOTO1580
1290 OPEN15,8,15
1300 INPUT#15,N,FE$,TR,SE
1310 SYSAT,2,22," "
1320 SYSAT,2,22,"STATUS :";N;"[157] "FE$;TR;"[157] "SE;" "
1330 IFN=62THENNA$=""
1340 IFN<>0THENGOSUB1370:CLOSE15:GOTO1690
1350 CLOSE15
1360 RETURN
1370 MN$="ZUM FORTSETZEN BITTE TASTE"
1380 POKE198,0
1390 GOSUB1420
1400 SYS49298
1410 RETURN
1420 SYSAT,2,21," "
1430 SYSAT,2,21,MN$
1440 RETURN
1450 OPEN4,4
1460 POKE768,61
1470 PRINT#4
1480 CLOSE4
1490 POKE768,139
1500 IFST<>-128ANDST<>-125THEN1540
1510 SYSAT,2,22,"STATUS : DRUCKER NICHT EINGESCHALTET"
1520 GOSUB1370
1530 GOTO1690
1540 OPEN6,4,6
1550 PRINT#6,CHR$(0)
1560 CLOSE6
1570 RETURN
1580 A$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1590 SYSAT,1,1,"[207]";A$;"[208]"
1600 FORI=2TO22
1610 SYSAT,1,I,"[180]"
1620 SYSAT,38,I,"[170]"
1630 NEXT
1640 SYSAT,1,20,"[207]";A$;"[208]"
1650 A$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
1660 SYSAT,1,23,"[204]";A$;"[186]"
1670 SYSAT,1,6,"[204]";A$;"[186]"
1680 SYSAT,1,3,"[204]";A$;"[186]"
1690 GOSUB1160
1700 SYSAT,2,2,"BENZINKOSTEN 1.0 NAME: ";NA$
1710 WA=1
1720 ZE=8
1730 MN$="BEWEGEN UP/DOWN AUSWAHL RETURN"
1740 GOSUB1420
1750 SYSAT,10,5,"H A U P T M E N U E"
1760 SYSAT,10,8,"---> DATEN EINGEBEN"
1770 SYSAT,15,9,"LETZTER EINTRAG"
1780 SYSAT,15,10,"EINTRAG FINDEN"
1790 SYSAT,15,11,"STATISTIK"
1800 SYSAT,15,12,"DATEN LADEN"
1810 SYSAT,15,13,"DATEN SICHERN"
1820 SYSAT,15,14,"INHALTSVERZEICHNIS"
1830 SYSAT,15,15,"EINTRAG LOESCHEN"
1840 SYSAT,15,16,"DATEI EINRICHTEN"
1850 SYSAT,15,17,"ENDE"
1860 GOSUB1210
1870 POKE198,0
1880 GETWA$
1890 IFWA$=""THEN1880
1900 IFWA$=CHR$(13)THEN1980
1910 SYSAT,10,ZE," "
1920 IFWA$=""THENWA=WA+1:ZE=ZE+1
1930 IFWA$="[145]"THENWA=WA-1:ZE=ZE-1
1940 IFWA<1THENWA=1:ZE=8
1950 IFWA>10THENWA=10:ZE=17
1960 SYSAT,10,ZE,"--->"
1970 GOTO1880
1980 ONWAGOTO1990,2660,2990,3410,4530,4830,5070,5230,5710,6160
1990 GOSUB1160
2000 MN$="BITTE DATEN EINGEBEN"
2010 GOSUB1420
2020 IFNA$=""THEN4530
2030 SYSAT,7,5,"D A T E N E I N G E B E N"
2040 NR=NR+1
2050 SYSAT,2,8,"NUMMER.................:"NR
2060 SYSAT,2,10,"DATUM..................: ";
2070 LG=10
2080 AL=1
2090 GOSUB790
2100 DA$(NR)=IN$
2110 SYSAT,2,12,"KILOMETERSTAND.........: ";
2120 LG=6
2130 AL=0
2140 GOSUB790
2150 KI(NR)=VAL(IN$)
2160 IFKI(NR)<=KI(NR-1)THENPRINT"[145][145]":GOTO2110
2170 SYSAT,2,14,"GESAMTPREIS............: ";
2180 LG=5
2190 AL=0
2200 GOSUB790
2210 GE(NR)=VAL(IN$)
2220 IFGE(NR)=0THENPRINT"[145][145]":GOTO2170
2230 SYSAT,2,16,"PREIS PRO LITER........: ";
2240 LG=5
2250 AL=0
2260 GOSUB790
2270 PR(NR)=VAL(IN$)
2280 IFPR(NR)=0THENPRINT"[145][145]":GOTO2230
2290 KG(NR)=KI(NR)-KI(NR-1)
2300 LI(NR)=GE(NR)/PR(NR)
2310 VE(NR)=(LI(NR)/KG(NR))*100
2320 IFVE(NR)>1ANDVE(NR)<50THEN2370
2330 SYSAT,2,18,"BITTE DATEN UEBERPRUEFEN"
2340 NR=NR-1
2350 GOSUB1370
2360 GOTO1690
2370 MN$="RICHTIG? RETURN JA SONST NEIN"
2380 GOSUB1420
2390 SYS49298
2400 GETRI$
2410 IFRI$<>CHR$(13)THENNR=NR-1:GOTO1690
2420 MN$="SPEICHERN? RETURN JA SONST NEIN"
2430 GOSUB1420
2440 SYS49298
2450 GETRI$
2460 IFRI$<>CHR$(13)THEN2560
2470 GOSUB1210
2480 OPEN2,8,2,NA$+".DAT,S,A"
2490 PRINT#2,DA$(NR)
2500 PRINT#2,KI(NR)
2510 PRINT#2,PR(NR)
2520 PRINT#2,GE(NR)
2530 PRINT#2,LI(NR)
2540 PRINT#2,VE(NR)
2550 CLOSE2
2560 GOSUB1160
2570 GOSUB1210
2580 SYSAT,13,5,"B E R I C H T"
2590 SYSAT,2,8,"LETZTER EINTRAG.........: "DA$(NR-1)
2600 SYSAT,2,10,"ZURUECKGELEGTE STRECKE..:"KG(NR)
2610 SYSAT,2,12,"GETANKTE LITER..........:"LI(NR)
2620 SYSAT,2,14,"VERBRAUCH...............:"VE(NR)
2630 SYSAT,2,16,"REICHWEITE PRO LITER....:"100/VE(NR)
2640 GOSUB1370
2650 GOTO1690
2660 GOSUB1160
2670 IFNR=0THEN4530
2680 SYSAT,5,5,"L E T Z[160]T[160]E R E I N T R A G"
2690 KG(NR)=KI(NR)-KI(NR-1)
2700 SYSAT,2,8,"DATUM..................: "DA$(NR)
2710 SYSAT,2,10,"KILOMETERSTAND.........:"KI(NR)
2720 SYSAT,2,12,"ZURUECKGELEGTE STRECKE.:"KG(NR)
2730 SYSAT,2,14,"TANKMENGE..............:"LI(NR)
2740 SYSAT,2,16,"VERBRAUCH..............:"VE(NR)
2750 SYSAT,2,18,"REICHWEITE PRO LITER...:"1/VE(NR)*100
2760 POKE198,0
2770 MN$="AUSDRUCK? RETURN JA SONST NEIN"
2780 GOSUB1420
2790 SYS49298
2800 GETRI$
2810 IFRI$=CHR$(13)THEN2830
2820 GOTO1690
2830 GOSUB1450
2840 POKE768,61
2850 OPEN4,4
2860 CMD4
2870 PRINTCHR$(20)"NAME DER DATEI = "NA$
2880 PRINT
2890 PRINT"DATUM..................: "DA$(NR)
2900 PRINT"KILOMETERSTAND.........:"KI(NR)
2910 PRINT"ZURUECKGELEGTE STRECKE.:"KG(NR)
2920 PRINT"TANKMENGE..............:"LI(NR)
2930 PRINT"VERBRAUCH..............:"VE(NR)
2940 PRINT"REICHWEITE PRO LITER...:"1/VE(NR)*100
2950 PRINT#4
2960 CLOSE4
2970 GOSUB1450
2980 GOTO1690
2990 GOSUB1160
3000 MN$="BITTE NUMMER DES EINTRAGS EINGEBEN"
3010 GOSUB1420
3020 IFNR=0THEN4530
3030 SYSAT,7,5,"E I N T R A G F I N D E N"
3040 SYSAT,2,8,"NUMMER DES EINTRAGS....: ";
3050 LG=3
3060 AL=0
3070 GOSUB790
3080 GN=VAL(IN$)
3090 IFGN<1THEN3040
3100 IFGN>NRTHENSYSAT,2,11,"EINTRAG N I C H T VORHANDEN !!!":GOSUB1370:GOTO1690
3110 SYSAT,2,8," "
3120 SYSAT,2,8,"DATUM..................: "DA$(GN)
3130 SYSAT,2,10,"KILOMETERSTAND.........:"KI(GN)
3140 SYSAT,2,12,"ZURUECKGELEGTE STRECKE.:"KI(GN)-KI(GN-1)
3150 SYSAT,2,14,"TANKMENGE..............:"LI(GN)
3160 SYSAT,2,16,"VERBRAUCH..............:"VE(GN)
3170 SYSAT,2,18,"REICHWEITE PRO LITER...:"1/VE(GN)*100
3180 POKE198,0
3190 MN$="AUSDRUCK? RETURN JA SONST NEIN"
3200 GOSUB1420
3210 SYS49298
3220 GETRI$
3230 IFRI$=CHR$(13)THEN3250
3240 GOTO1690
3250 GOSUB1450
3260 POKE768,61
3270 OPEN4,4
3280 CMD4
3290 PRINTCHR$(20)"NAME DER DATEI = "NA$
3300 PRINT
3310 PRINT"DATUM..................: "DA$(GN)
3320 PRINT"KILOMETERSTAND.........:"KI(GN)
3330 PRINT"ZURUECKGELEGTE STRECKE.:"KI(GN)-KI(GN-1)
3340 PRINT"TANKMENGE..............:"LI(GN)
3350 PRINT"VERBRAUCH..............:"VE(GN)
3360 PRINT"REICHWEITE PRO LITER...:"1/VE(GN)*100
3370 PRINT#4
3380 CLOSE4
3390 GOSUB1450
3400 GOTO1690
3410 GOSUB1160
3420 IFNR=0THEN4530
3430 SYSAT,8,5,"S T A T I S T I K ( 1 )"
3440 AN=NR-34
3450 IFAN<1THENAN=1
3460 TL=0
3470 GL=0
3480 DK=0
3490 DL=0
3500 FORI=0TONR
3510 TL=TL+LI(I)
3520 GL=GL+GE(I)
3530 NEXT
3540 MIN=10000000
3550 MAX=-10000000
3560 FORI=ANTONR
3570 IFVE(I)<MIN THENMIN=VE(I)
3580 IFVE(I)>MAXTHENMAX=VE(I)
3590 NEXT
3600 IFNR<5THENDL=0:DK=1:GOTO3650
3610 DK=KI(NR)-KI(NR-5)
3620 FORI=NR-4TONR
3630 DL=DL+LI(I)
3640 NEXT
3650 SYSAT,2,8,"VOM "DA$(0)" BIS ZUM "DA$(NR)
3660 SYSAT,2,10,"ZAHL DER TANKFUELLUNGEN.:"NR
3670 SYSAT,2,12,"GESAMTPREIS.............:"GL
3680 SYSAT,2,14,"PREIS PRO TANKFUELLUNG..:"GL/NR
3690 SYSAT,2,16,"PREIS PRO LITER.........:"GL/TL
3700 SYSAT,2,18,"PREIS PRO KILOMETER..PF.:"100*GL/(KI(NR)-KI(0))
3710 GOSUB1370
3720 GOSUB1160
3730 SYSAT,8,5,"S T A T I S T I K ( 2 )"
3740 SYSAT,2,8,"GEFAHRENE KILOMETER.....:"KI(NR)
3750 SYSAT,2,10,"DURCHSCHNITTSSTRECKE....:"(KI(NR)-KI(0))/NR
3760 SYSAT,2,12,"MAXIMALE REICHWEITE.....:"(TA*100)/MIN
3770 SYSAT,2,14,"MINIMALE REICHWEITE.....:"(TA*100)/MAX
3780 SYSAT,2,16,"MITTLERE REICHWEITE.....:"(TA*100)/(TL*100/(KI(NR)-KI(0)))
3790 SYSAT,2,18,"REICHWEITE PRO LITER....:"100/(TL*100/(KI(NR)-KI(0)))
3800 GOSUB1370
3810 GOSUB1160
3820 SYSAT,8,5,"S T A T I S T I K ( 3 )"
3830 SYSAT,2,8,"LITER INSGESAMT.........:"TL
3840 SYSAT,2,10,"LITER DURCHSCHNITT......:"TL/NR
3850 SYSAT,2,12,"MAXIMALER VERBRAUCH.....:"MAX
3860 SYSAT,2,14,"MINIMALER VERBRAUCH.....:"MIN
3870 SYSAT,2,16,"MITTLERER VERBRAUCH I...:"TL*100/(KI(NR)-KI(0))
3880 SYSAT,2,18,"MITTLERER VERBRAUCH II..:"100*DL/DK
3890 POKE198,0
3900 MN$="AUSDRUCK? RETURN JA SONST NEIN"
3910 GOSUB1420
3920 SYS49298
3930 GETRI$
3940 IFRI$=CHR$(13)THENGOSUB4230
3950 PRINT"[147]"
3960 II$="S[157]T[157]A[157]T[157]I[157]S[157]T[157]I[157]K"
3970 SYSAT,1,5,II$
3980 FORI=4TO38
3990 SYSAT,I,1,"[183]"
4000 SYSAT,I,20,"[183]"
4010 NEXT
4020 FORI=1TO19
4030 SYSAT,3,I,"[170]"
4040 SYSAT,39,I,"[180]"
4050 NEXT
4060 SYSAT,0,1,"MAX"
4070 SYSAT,0,19,"MIN"
4080 SYSAT,2,21,"[154] [146] MINI. VERBR. [150] [146] MAXI. VERBR."
4090 SYSAT,2,22,"[153] [146] UNTER DURCH. [146] UEBER DURCH."
4100 SYSAT,4,19,"";
4110 FORI=ANTONR
4120 IFVE(I)=<(TL*100/KI(NR))THENCOL=13
4130 IFVE(I)>(TL*100/KI(NR))THENCOL=5
4140 IFVE(I)=MAXTHENCOL=8
4150 IFVE(I)=MIN THENCOL=14
4160 SYS49152,(VE(I)-(MIN-.1))/(MAX-MIN+.1)*152,COL
4170 NEXT
4180 POKE198,0
4190 SYS49298
4200 PRINT"[147][154]"
4210 GOSUB1210
4220 GOTO1580
4230 GOSUB1160
4240 SYSAT,10,5,"A U S D R U C K E N"
4250 GOSUB1450
4260 POKE768,61
4270 OPEN4,4
4280 CMD4
4290 PRINTCHR$(20)"NAME DER DATEI = "NA$
4300 PRINT
4310 PRINT"VOM "DA$(0)" BIS ZUM "DA$(NR)
4320 PRINT"ZAHL DER TANKFUELLUNGEN.:"NR
4330 PRINT"GESAMTPREIS.............:"GL
4340 PRINT"PREIS PRO TANKFUELLUNG..:"GL/NR
4350 PRINT"PREIS PRO LITER.........:"GL/TL
4360 PRINT"PREIS PRO KILOMETER..PF.:"100*GL/(KI(NR)-KI(0))
4370 PRINT"GEFAHRENE KILOMETER.....:"KI(NR)
4380 PRINT"DURCHSCHNITTSSTRECKE....:"(KI(NR)-KI(0))/NR
4390 PRINT"MAXIMALE REICHWEITE.....:"(TA*100)/MIN
4400 PRINT"MINIMALE REICHWEITE.....:"(TA*100)/MAX
4410 PRINT"MITTLERE REICHWEITE.....:"(TA*100)/(TL*100/(KI(NR)-KI(0)))
4420 PRINT"REICHWEITE PRO LITER....:"100/(TL*100/(KI(NR)-KI(0)))
4430 PRINT"LITER INSGESAMT.........:"TL
4440 PRINT"LITER DURCHSCHNITT......:"TL/NR
4450 PRINT"MAXIMALER VERBRAUCH.....:"MAX
4460 PRINT"MINIMALER VERBRAUCH.....:"MIN
4470 PRINT"MITTLERER VERBRAUCH I...:"TL*100/(KI(NR)-KI(0))
4480 PRINT"MITTLERER VERBRAUCH II..:"100*DL/DK
4490 PRINT#4
4500 CLOSE4
4510 GOSUB1450
4520 RETURN
4530 GOSUB1160
4540 MN$="BITTE DATEINAMEN EINGEBEN"
4550 GOSUB1420
4560 SYSAT,10,5,"D A T E N L A D E N"
4570 GOSUB1210
4580 SYSAT,2,8,"DATEINAME............: ";
4590 LG=12
4600 AL=1
4610 GOSUB790
4620 NA$=IN$
4630 IFLEN(NA$)<1THEN4580
4640 MN$="RICHTIG? RETURN JA SONST NEIN"
4650 GOSUB1420
4660 SYS49298
4670 GETRI$
4680 IFRI$<>CHR$(13)THENNA$="":GOTO1690
4690 OPEN15,8,15
4700 PRINT#15,"I"
4710 CLOSE15
4720 GOSUB1210
4730 NR=-1
4740 OPEN2,8,2,NA$+".DAT,S,R"
4750 INPUT#2,TA
4760 NR=NR+1
4770 INPUT#2,DA$(NR),KI(NR),PR(NR)
4780 INPUT#2,GE(NR),LI(NR),VE(NR)
4790 IFST<>0THENCLOSE2:GOTO4810
4800 GOTO4760
4810 GOSUB1210
4820 GOTO1690
4830 GOSUB1160
4840 MN$="BITTE DATEINAMEN EINGEBEN"
4850 GOSUB1420
4860 SYSAT,8,5,"D A T E N S I C H E R N"
4870 SYSAT,2,8,"DATEINAME............: ";
4880 LG=12
4890 AL=1
4900 GOSUB790
4910 DS$=IN$
4920 IFDS$=""THENDS$=NA$
4930 IFDS$=""THEN4870
4940 MN$="RICHTIG? RETURN JA SONST NEIN"
4950 GOSUB1420
4960 SYS49298
4970 GETRI$
4980 IFRI$<>CHR$(13)THEN1690
4990 GOSUB1210
5000 OPEN15,8,15,"S:"+DS$+".BAK"
5010 CLOSE15
5020 GOSUB1210
5030 OPEN15,8,15,"C:"+DS$+".BAK="+DS$+".DAT"
5040 CLOSE15
5050 GOSUB1210
5060 GOTO1690
5070 GOSUB1160
5080 SYSAT,2,5,"I N H A L T S V E R Z E I C H N I S"
5090 GOSUB1210
5100 I=7
5110 OPEN2,8,0,"$:????????????.???=SEQ"
5120 GET#2,A$,A$
5130 E$=CHR$(0)
5140 GET#2,A$,A$,H$,L$
5150 IFSTTHENCLOSE2:GOSUB1370:GOSUB1210:GOTO1690
5160 BL=ASC(H$+E$)+256*ASC(L$+E$)
5170 I=I+1
5180 IFI=19THENGOSUB1370:GOSUB1170:I=7:GOTO5150
5190 SYSAT,5,I,BL;
5200 GET#2,A$,B$
5210 IFA$THENPRINTA$B$;:GOTO5200
5220 PRINTA$:GOTO5140
5230 GOSUB1160
5240 MN$="BITTE DATEINAMEN EINGEBEN"
5250 GOSUB1420
5260 SYSAT,5,5,"E I N T R A G L O E S C H E N"
5270 SYSAT,5,8,"ES WIRD DER LETZTE EINTRAG AUF"
5280 SYSAT,12,10," DISKETTE !!![146]"
5290 SYSAT,5,12,"GELOESCHT !!!!"
5300 SYSAT,2,16,"DATEINAME............: ";
5310 LG=12
5320 AL=1
5330 GOSUB790
5340 EL$=IN$
5350 IFEL$=""THENEL$=NA$
5360 IFEL$=""THEN5300
5370 MN$="RICHTIG? RETURN JA SONST NEIN"
5380 GOSUB1420
5390 SYS49298
5400 GETRI$
5410 IFRI$<>CHR$(13)THEN1690
5420 GOSUB1210
5430 NR=-1
5440 OPEN2,8,2,EL$+".DAT,S,R"
5450 INPUT#2,TA
5460 NR=NR+1
5470 INPUT#2,DA$(NR),KI(NR),PR(NR)
5480 INPUT#2,GE(NR),LI(NR),VE(NR)
5490 IFST<>0THENCLOSE2:GOTO5510
5500 GOTO5460
5510 GOSUB1210
5520 IFNR=0THEN1690
5530 OPEN15,8,15,"S:"+EL$+".DAT"
5540 CLOSE15
5550 GOSUB1210
5560 OPEN2,8,2,EL$+".DAT,S,W"
5570 PRINT#2,TA
5580 FORI=0TONR-1
5590 PRINT#2,DA$(I)
5600 PRINT#2,KI(I)
5610 PRINT#2,PR(I)
5620 PRINT#2,GE(I)
5630 PRINT#2,LI(I)
5640 PRINT#2,VE(I)
5650 NEXT
5660 CLOSE2
5670 NR=NR-1
5680 GOSUB1160
5690 GOSUB1210
5700 GOTO1690
5710 GOSUB1160
5720 GOSUB1210
5730 MN$="BITTE DATEN EINGEBEN"
5740 GOSUB1420
5750 SYSAT,11,5,"N E U E D A T E I"
5760 SYSAT,2,8,"DATEINAME............: ";
5770 LG=12
5780 AL=1
5790 GOSUB790
5800 N$=IN$
5810 IFLEN(N$)<1THEN5760
5820 SYSAT,2,10,"DATUM................: ";
5830 LG=10
5840 AL=1
5850 GOSUB790
5860 DA$=IN$
5870 SYSAT,2,12,"KILOMETERSTAND.......: ";
5880 LG=6
5890 AL=0
5900 GOSUB790
5910 KI=VAL(IN$)
5920 IFKI<0THEN5870
5930 SYSAT,2,14,"MAXIMALER TANKINHALT.: ";
5940 LG=3
5950 AL=0
5960 GOSUB790
5970 TA=VAL(IN$)
5980 IFTA<1THEN5930
5990 MN$="RICHTIG? RETURN JA SONST NEIN"
6000 GOSUB1420
6010 SYS49298
6020 GETRI$
6030 IFRI$<>CHR$(13)THEN1690
6040 GOSUB1210
6050 OPEN2,8,2,N$+".DAT,S,W"
6060 PRINT#2,TA
6070 PRINT#2,DA$
6080 PRINT#2,KI
6090 PRINT#2,0
6100 PRINT#2,0
6110 PRINT#2,0
6120 PRINT#2,0
6130 CLOSE2
6140 GOSUB1210
6150 GOTO1690
6160 GOSUB1160
6170 SYSAT,16,5,"E N D E"
6180 MN$="RICHTIG? RETURN JA SONST NEIN"
6190 GOSUB1420
6200 SYS49298
6210 GETRI$
6220 IFRI$<>CHR$(13)THEN1690
6230 SYS64738